
*Owens & Wohlfarth (2019) -- ``The Influence of Home State Reputation and Public Opinion on Federal Circuit Court Judges"
*Replication

use "owensWohlfarth2019_Replication.dta"

*Table 1, Model 1
logit liberalVote stateMood [pweight=pweight]

*Table 1, Model 2
logit liberalVote stateMood stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]

*Figure 3
quietly margins, at(stateMood=(25(2)71))
marginsplot, xlabel(25(5)70) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) level(90) xtitle(State Public Mood) ytitle(Predicted Probability of a Liberal Vote) title("") scheme(s1mono)

*Figure 4a
logit liberalVote c.stateMood##c.yearsCourt stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]
quietly margins, dydx(yearsCourt) at(stateMood=(25(2)71))
marginsplot, xlabel(25(5)70) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small)) ylin(0) level(90) xtitle(State Public Mood) ytitle(Average Marginal Effect of Years of Service) title("") scheme(s1mono) legend(off)  

*Figure 4b
quietly margins, at(stateMood=(25(2)71) yearsCourt=3) at(stateMood=(25(2)71) yearsCourt=17)
marginsplot, xlabel(25(5)70) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) level(90) xtitle(State Public Mood) ytitle(Predicted Probability of a Liberal Vote) title("") scheme(s1mono) legend(off)

*Figure 5a
logit liberalVote c.stateMood##c.suppSCOTUS stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]
quietly margins, at(stateMood=(25(2)71) suppSCOTUS=88.36) at(stateMood=(25(2)71) suppSCOTUS=102.98)
marginsplot, xlabel(25(5)70) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) level(90) xtitle(State Public Mood) ytitle(Predicted Probability of a Liberal Vote) title("") scheme(s1mono) legend(off)

*Figure 5b*
logit liberalVote c.stateMood##c.congAppr stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]
quietly margins, at(stateMood=(25(2)71) congAppr=57.27) at(stateMood=(25(2)71) congAppr=73)
marginsplot, xlabel(25(5)70) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) level(90) xtitle(State Public Mood) ytitle(Predicted Probability of a Liberal Vote) title("") scheme(s1mono) legend(off)

*Table 1, Model 3 
logit liberalVote c.stateMood##i.liveBornBAJD [pweight=pweight]

*Table 1, Model 4
logit liberalVote c.stateMood##i.liveBornBAJD stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]

*Figure 6a
quietly margins, at(stateMood=(25(2)71) liveBornBAJD=0) at(stateMood=(25(2)71) liveBornBAJD=1) 
marginsplot, xlabel(25(5)70) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) level(90) xtitle(State Public Mood) ytitle(Predicted Probability of a Liberal Vote) title("") scheme(s1mono) legend(off)

*Figure 6b
quietly margins, dydx(liveBornBAJD) at(stateMood=(25(2)71))
marginsplot, xlabel(25(5)70) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small)) ylin(0) level(90) xtitle(State Public Mood) ytitle(Average Marginal Effect of Native Born & Educated) title("") scheme(s1mono) legend(off)  

*Figure 6c
quietly margins, dydx(stateMood) at(liveBornBAJD=(0(1)1))
marginsplot, recast(scatter) xlabel(0 1) plotopt(mcolor(black) msymbol(circle)) ciopts(lcolor(black) msize(small)) ylin(0) level(90) xtitle(Native Born & Educated) ytitle(Average Marginal Effect of State Public Mood) title("") scheme(s1mono) legend(off)  

*Figure 7a
logit liberalVote c.stateMood##i.liveBornBAJD stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem if thresholdIssue == 0 [pweight=pweight]
quietly margins, at(stateMood=(25(2)71) liveBornBAJD=0) at(stateMood=(25(2)71) liveBornBAJD=1)
marginsplot, xlabel(25(5)70) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) level(90) xtitle(State Public Mood) ytitle(Predicted Probability of a Liberal Vote) scheme(s1mono) title("") legend(off)

*Figure 7b
quietly margins, dydx(liveBornBAJD) at(stateMood=(25(2)71))  vsquish
marginsplot, xlabel(25(5)70) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small)) ylin(0) level(90) xtitle(State Public Mood) ytitle(Average Marginal Effect of Native Born & Educated) title("") scheme(s1mono) legend(off)  


****************************************
***************************************8
****************************************

*Appendix Tables & Figures

*Appendix--Table 1
*Model 1
logit liberalVote stateMood JCS if liveBornBAJD == 1 [pweight=pweight]
*Model 2
logit liberalVote stateMood stimsonMood JCS circuitMedian SCmedian USlib if liveBornBAJD == 1 [pweight=pweight]
*Model 3
logit liberalVote stateMood stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem if liveBornBAJD == 1 [pweight=pweight]
*Model 4
logit liberalVote stateMood JCS if bornBAJD == 1 [pweight=pweight]
*Model 5
logit liberalVote stateMood stimsonMood JCS circuitMedian SCmedian USlib if bornBAJD == 1 [pweight=pweight]
*Model 6
logit liberalVote stateMood stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem if bornBAJD == 1 [pweight=pweight]
*model 7
logit liberalVote stateMood JCS if liveBornBAJD == 0 & bornBAJD == 0 [pweight=pweight]
*Model 8
logit liberalVote stateMood stimsonMood JCS circuitMedian SCmedian USlib if liveBornBAJD == 0 & bornBAJD == 0 [pweight=pweight]
*Model 9
logit liberalVote stateMood stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem if liveBornBAJD == 0 & bornBAJD == 0 [pweight=pweight]

*Appendix--Table 2
*Model 1
logit liberalVote stateMood_birthState stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem if bornBAJD == 1 [pweight=pweight]
*Model 2
logit liberalVote stateMood_birthState stateMood stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem if bornBAJD == 1 [pweight=pweight]

*Appendix--Table 3
*Model 1
logit liberalVote stateMood stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem if liveBornBAJD == 1 [pweight=pweight]
*Model 2
logit liberalVote stateMood stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem if liveBornBA == 1 [pweight=pweight]
*Model 3
logit liberalVote stateMood stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem if liveBornJD == 1 [pweight=pweight]
*Model 4
logit liberalVote stateMood stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem if liveBAJD == 1 [pweight=pweight]

*Appendix--Table 4
xtset judgeID
*Random Effects
*Model 1
xtlogit liberalVote c.stateMood##i.liveBornBAJD
*Model 2
xtlogit liberalVote c.stateMood##i.liveBornBAJD stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem
*Fixed EFfects
*Model 3
xtlogit liberalVote stateMood if liveBornBAJD == 1, fe
*Model 4
xtlogit liberalVote stateMood stimsonMood circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem if liveBornBAJD == 1, fe

*Appendix--Table 5
logit liberalVote c.stateMood##i.liveBornBAJD if thresholdIssue == 0 [pweight=pweight]
logit liberalVote c.stateMood##i.liveBornBAJD stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem if thresholdIssue == 0 [pweight=pweight]

*Appendix--Table 6
logit liberalVote c.stateMood##c.yearsCourt [pweight=pweight]
logit liberalVote c.stateMood##c.yearsCourt stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]

*Appendix--Table 7
*Model 1
logit liberalVote c.stateMood##c.suppSCOTUS stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]
*Model 2
logit liberalVote c.stateMood##c.congAppr stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]

*Appendix--Figure 2
gen edate=mdy(month, day, year)

gen float watergatePost=0 if edate<5334 & edate>4239
replace watergatePost=1 if edate>5334 & edate<5669
quietly logit liberalVote c.stateMood##i.watergatePost stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]
quietly margins, dydx(watergatePost) at(stateMood=(30(2)60))
marginsplot, xlabel (30(5)60) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) ylin(0) level(90) xtitle(State Public Mood) title("Watergate") ytitle(Marginal Effect of Watergate) scheme(s1mono) legend(off) saving(watergate, replace)

gen float iranPost=0 if edate>8828 & edate<9924
replace iranPost=1 if edate>9923 & edate<10289
quietly logit liberalVote c.stateMood##i.iranPost stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]
quietly margins, dydx(iranPost) at(stateMood=(36(1)50))
marginsplot, xlabel (36(2)50) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) ylin(0) level(90) xtitle(State Public Mood) title("Iran Contra") ytitle(Marginal Effect of Iran Contra) scheme(s1mono) legend(off) saving(irancontra, replace)

gen float lewinskyPost=0 if edate<14109 & edate>13013
replace lewinskyPost=1 if edate>14108 & edate<14474
quietly logit liberalVote c.stateMood##i.lewinskyPost stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]
quietly margins, dydx(lewinskyPost) at(stateMood=(25(2)41))
marginsplot, xlabel (25(3)40) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) ylin(0) level(90) xtitle(State Public Mood) title("Lewinsky Affair") ytitle(Marginal Effect of Lewinsky Affair) scheme(s1mono) legend(off) saving(lewinsky, replace)

gen float fortasPost=0 if edate<3421 & edate> 2326
replace fortasPost=1 if edate >3420 & edate<3786
quietly logit liberalVote c.stateMood#i.fortasPost stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]
quietly margins, dydx(fortasPost) at(stateMood=(39(2)69))
marginsplot, xlabel (39(4)69) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) ylin(0) level(90) xtitle(State Public Mood) title("Fortas Resignation") ytitle(Marginal Effect of Fortas Resignation) scheme(s1mono) legend(off) saving(fortas, replace)

gen float bushgorePost=0 if edate<14957 & edate>13861
replace bushgorePost=1 if edate>14956 & edate<15322
quietly logit liberalVote c.stateMood##i.bushgorePost stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]
quietly margins, dydx(bushgorePost) at(stateMood=(25(3)70))
marginsplot, xlabel (25(5)70) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) ylin(0) level(90) xtitle(State Public Mood) title("Bush v. Gore") ytitle(Marginal Effect of Bush v. Gore) scheme(s1mono) legend(off) saving(bushGore, replace)

gr combine watergate.gph irancontra.gph lewinsky.gph fortas.gph bushGore.gph

*Appendix--Figure 3
gen float watergatePost32=0 if edate<5334 & edate>4239
replace watergatePost32=1 if edate>5334 & edate<6064
quietly logit liberalVote c.stateMood##i.watergatePost32 stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]
quietly margins, dydx(watergatePost32) at(stateMood=(30(2)60)) 
marginsplot, xlabel (30(5)60) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) ylin(0) level(90) xtitle(State Public Mood) title("Watergate") ytitle(Marginal Effect of Watergate) scheme(s1mono) legend(off) saving(watergate32, replace)

gen float iranPost32=0 if edate>8828 & edate<9924
replace iranPost32=1 if edate>9923 & edate<10654
quietly logit liberalVote c.stateMood##i.iranPost32 stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]
quietly margins, dydx(iranPost32) at(stateMood=(36(1)50))
marginsplot, xlabel (36(2)50) plotopt(mmsymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) ylin(0) level(90) xtitle(State Public Mood) title("Iran Contra") ytitle(Marginal Effect of Iran Contra) scheme(s1mono) legend(off) saving(irancontra32, replace)

gen float lewinskyPost32=0 if edate<14109 & edate>13013
replace lewinskyPost32=1 if edate>14108 & edate<14839
quietly logit liberalVote c.stateMood##i.lewinskyPost32 stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]
quietly margins, dydx(lewinskyPost32) at(stateMood=(25(3)53))
marginsplot, xlabel (25(4)53) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) ylin(0) level(90) xtitle(State Public Mood) title("Lewinsky Affair") ytitle(Marginal Effect of Lewinsky Affair) scheme(s1mono) legend(off) saving(lewinsky32, replace)

gen float fortasPost32=0 if edate<3421 & edate>2326
replace fortasPost32=1 if edate >3420 & edate<4151
quietly logit liberalVote c.stateMood##i.fortasPost32 stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]
quietly margins, dydx(fortasPost32) at(stateMood=(39(2)69))
marginsplot, xlabel (39(5)69) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) ylin(0) level(90) xtitle(State Public Mood) title("Fortas Resignation") ytitle(Marginal Effect of Fortas Resignation) scheme(s1mono) legend(off) saving(fortas32, replace)

gen float bushgorePost32=0 if edate<14957 & edate>13861
replace bushgorePost32=1 if edate>14956 & edate<15687
quietly logit liberalVote c.stateMood##i.bushgorePost32 stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]
quietly margins, dydx(bushgorePost32) at(stateMood=(25(3)70))
marginsplot, xlabel (25(5)70) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) ylin(0) level(90) xtitle(State Public Mood) title("Bush v. Gore") ytitle(Marginal Effect of Bush v. Gore) scheme(s1mono) legend(off) saving(bushGore32, replace)

gr combine watergate32.gph irancontra32.gph lewinsky32.gph fortas32.gph bushGore32.gph

*Appendix---Figure 4
gen float watergatePost33=0 if edate<5334 & edate>4239
replace watergatePost33=1 if edate>5334 & edate<6429
quietly logit liberalVote c.stateMood##i.watergatePost33 stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]
quietly margins, dydx(watergatePost33) at(stateMood=(30(2)60))
marginsplot, xlabel (30(5)60) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) ylin(0) level(90) xtitle(State Public Mood) title("Watergate") ytitle(Marginal Effect of Watergate) scheme(s1mono) legend(off) saving(watergate33, replace)

gen float iranPost33=0 if edate>8828 & edate<9924
replace iranPost33=1 if edate>9923 & edate<11019
quietly logit liberalVote c.stateMood##i.iranPost33 stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]
quietly margins, dydx(iranPost33) at(stateMood=(36(1)50))
marginsplot, xlabel (36(2)50) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) ylin(0) level(90) xtitle(State Public Mood) title("Iran Contra") ytitle(Marginal Effect of Iran Contra) scheme(s1mono) legend(off) saving(irancontra33, replace)

gen float lewinskyPost33=0 if edate<14109 & edate>13013
replace lewinskyPost33=1 if edate>14108 & edate<15204
quietly logit liberalVote c.stateMood##i.lewinskyPost33 stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]
quietly margins, dydx(lewinskyPost33) at(stateMood=(25(4)70))
marginsplot, xlabel (25(5)70) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) ylin(0) level(90) xtitle(State Public Mood) title("Lewinsky Affair") ytitle(Marginal Effect of Lewinsky Affair) scheme(s1mono) legend(off) saving(lewinsky33, replace)

gen float fortasPost33=0 if edate<3421 & edate>2326
replace fortasPost33=1 if edate >3420 & edate<4516
quietly logit liberalVote c.stateMood##i.fortasPost33 stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]
quietly margins, dydx(fortasPost33) at(stateMood=(39(2)69))
marginsplot, xlabel (39(5)69) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) ylin(0) level(90) xtitle(State Public Mood) title("Fortas Resignation") ytitle(Marginal Effect of Fortas Resignation) scheme(s1mono) legend(off) saving(fortas33, replace)

gr combine watergate33.gph irancontra33.gph lewinsky33.gph fortas33.gph 

*Appendix--Figure 5
gen float watergatePost53=0 if edate<5334 & edate>3509
replace watergatePost53=1 if edate>5334 & edate<6429
quietly logit liberalVote c.stateMood##i.watergatePost53 stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]
quietly margins, dydx(watergatePost53) at(stateMood=(30(2)60))
marginsplot, xlabel (30(5)60) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) ylin(0) level(90) xtitle(State Public Mood) title("Watergate") ytitle(Marginal Effect of Watergate) scheme(s1mono) legend(off) saving(watergate53, replace)

gen float iranPost53=0 if edate>8098 & edate<9924
replace iranPost53=1 if edate>9923 & edate<11019
quietly logit liberalVote c.stateMood##i.iranPost53 stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]
quietly margins, dydx(iranPost53) at(stateMood=(36(1)50))
marginsplot, xlabel (36(2)50) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) ylin(0) level(90) xtitle(State Public Mood) title("Iran Contra") ytitle(Marginal Effect of Iran Contra) scheme(s1mono) legend(off) saving(irancontra53, replace)

gen float lewinskyPost53=0 if edate<14109 & edate>12283
replace lewinskyPost53=1 if edate>14108 & edate<15204
quietly logit liberalVote c.stateMood##i.lewinskyPost53 stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]
quietly margins, dydx(lewinskyPost53) at(stateMood=(25(4)70))
marginsplot, xlabel (25(5)70) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) ylin(0) level(90) xtitle(State Public Mood) title("Lewinsky Affair") ytitle(Marginal Effect of Lewinsky Affair) scheme(s1mono) legend(off) saving(lewinsky53, replace)

gen float fortasPost53=0 if edate<3421 & edate>1596
replace fortasPost53=1 if edate >3420 & edate<4516
quietly logit liberalVote c.stateMood##i.fortasPost53 stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]
quietly margins, dydx(fortasPost53) at(stateMood=(39(2)69))
marginsplot, xlabel (39(5)69) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) ylin(0) level(90) xtitle(State Public Mood) title("Fortas Resignation") ytitle(Marginal Effect of Fortas Resignation) scheme(s1mono) legend(off) saving(fortas53, replace)

gen float bushgorePost52=0 if edate<14957 & edate>13131
replace bushgorePost52=1 if edate>14956 & edate<15687
quietly logit liberalVote c.stateMood##i.bushgorePost52 stimsonMood JCS circuitMedian SCmedian USlib D3 D2 D1 R2 R1 demU gopU president stateRateMurder state_unem [pweight=pweight]
quietly margins, dydx(bushgorePost52) at(stateMood=(25(3)70))
marginsplot, xlabel (25(5)70) plotopt(msymbol(none)) ciopts(lcolor(black) msize(small) lwidth(vthin)) ylin(0) level(90) xtitle(State Public Mood) title("Bush v. Gore") ytitle(Marginal Effect of Bush v. Gore) scheme(s1mono) legend(off) saving(bushGore52, replace)

gr combine watergate53.gph irancontra53.gph lewinsky53.gph fortas53.gph bushGore52.gph

